-- card: 6580 from stack: in
-- bmap block id: 7410
-- flags: 0000
-- background id: 2688
-- name: Bar
----- HyperTalk script -----
on openCard
  play "bar"
  pass openCard
end openCard
on closeCard
  show cd btn 4
  play stop
  lock screen
  hide cd fld "Help!"
  hide cd fld "SE/30"
  unlock Screen with visual dissolve
  pass closeCard
end closeCard

on Automusicon
  set cursor to 4
  set icon of bg btn "ToBar" of cd "AutoMusicon" to 20081
  visual zoom open
  go cd "AutoMusicon"
  play stop
end Automusicon

on idle
  send mouseup to cd btn 1
  send mouseup to cd btn 4
  pass idle
end idle




-- part 5 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=224 top=40 right=74 bottom=258
-- title width / last selected line: 0
-- icon id / first selected line: 29100 / 29100
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Top
----- HyperTalk script -----
on mouseUp
  if visible of cd btn 1 is true then
    hide cd btn 1
    hide cd btn 2
  else
    show cd btn 1
    show cd btn 2
  end if
end mouseUp


-- part 6 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=225 top=71 right=105 bottom=259
-- title width / last selected line: 0
-- icon id / first selected line: 29200 / 29200
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Bottom
----- HyperTalk script -----
on mouseUp
  Automusicon
end mouseUp



-- part 1 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=76 top=183 right=312 bottom=476
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 14
-- part name: 


-- part 3 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=220 top=42 right=90 bottom=261
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: To Automusicon
----- HyperTalk script -----
on mouseUp
  Automusicon
end mouseUp


-- part 9 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=76 top=38 right=86 bottom=140
-- title width / last selected line: 0
-- icon id / first selected line: 27513 / 27513
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  global ShotTimer
  add 1 to ShotTimer
  if ShotTimer = 3 then
    show cd btn 4
  end if
  if ShotTimer = 12 then
    hide cd btn 4
    put empty into ShotTimer
  end if
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=81 top=37 right=167 bottom=163
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  if the screenRect is "0,0,512,342" then
    answer "Human, do you want to play a game?" &return &"(on a Mac Plus or Mac SE)" with "SE/30" or "Help!" or "Yes"
    if it is "Yes" then open "Pinball Arcade"
    if it is "SE/30" then popup "SE/30"
    if it is "Help!" then popup "Help!"
  end if
  if the screenRect is not "0,0,512,342" then
    answer "Unfortunately the pinball games do not work correctly with a LARGE screen." with "Risk It" or "Help!" or "OK"
    if it is "Risk It" then open "Pinball Arcade"
    if it is "OK" then answer "There's always the Juke Box."
    if it is "Help!" then popup "Help!"
  end if
end mouseUp



-- part 12 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=75 top=179 right=309 bottom=479
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 14
-- part name: SE/30
----- HyperTalk script -----
on mouseUp
  popup "SE/30"
end mouseUp


-- part 13 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=57 top=175 right=321 bottom=493
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 14
-- part name: Help!
----- HyperTalk script -----
on mouseUp
  popup "Help!"
end mouseUp


-- part contents for card part 1
----- text -----
Yea, there's one of these in every town, whether it's called Alphie's or  Al's—the same slime ordering a drink, the same brooding loner, the same jukebox in the corner, the same creep banging away at the pinball machine, and always some empty-headed fool telling you his life story.  The history of a man, the history of a people—it's either filled with a passionate sense of purpose, or it's a boring tale of failure and misery or vain and empty success.  

-- part contents for card part 12
----- text -----
Your SE/30 is too fast for the standard set of pinball games.On disk 3 of IF MONKS HAVE MACS... there is a slowed down set of these same pinball games that will run at a normal speed on your fast machine. The slowed down games are in a stuffit file called “Slowed Down Pinball.sit”. They come with instructions that explain how to install them. Read the instructions!  When you have installed them click “Yes” or hit the return when asked, “Human, do you want to play a game?” 

-- part contents for card part 13
----- text -----
Pinball Construction Set, one of truly great computer games, is in the electronic equivalent of “out of print”. These classic Pinball Construction Set templates bomb on a Mac II, and will not run on a large screen (unless you reduce it with Stepping Out™) On a Plus or an SE they do not run smoothly (the ball jerks around) under multi-finder 6.02, but they run fine if multi-finder is turned off. I have no way of knowing what they will do under System 7.0. If you can't get them to run, at least you can see what they look like by opening their MacPaint documents them with any paint program.